home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / VBZ01.ZIP / META.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-02-26  |  1.3 KB  |  37 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    Height          =   4425
  5.    Left            =   1035
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   4020
  8.    ScaleWidth      =   7365
  9.    Top             =   1140
  10.    Width           =   7485
  11. DefInt A-Z
  12. Declare Sub DeleteMetaFile Lib "GDI" (ByVal hMF)
  13. Declare Sub SetWindowOrg Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  14. Declare Sub SetWindowExt Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  15. Declare Sub MoveTo Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  16. Declare Sub LineTo Lib "GDI" (ByVal hDC, ByVal X, ByVal Y)
  17. Declare Sub Rectangle Lib "GDI" (ByVal hDC, ByVal nLeft, ByVal nTop, ByVal nRight, ByVal nBottom)
  18. Declare Function CreateMetaFile Lib "GDI" (ByVal lpString As Any)
  19. Declare Function CloseMetaFile Lib "GDI" (ByVal hMF)
  20. Const NULL = &H0&
  21. Sub Form_Click ()
  22.   Dim MyRect As Rect
  23.   hMetaDC = CreateMetaFile(Null)
  24.   SetWindowOrg hMetaDC, 0, 0
  25.   SetWindowExt hMetaDC, 100, 100
  26.   Rectangle hMetaDC, 0, 0, 100, 100
  27.   MoveTo hMetaDC, 0, 0
  28.   LineTo hMetaDC, 100, 100
  29.   MoveTo hMetaDC, 0, 100
  30.   LineTo hMetaDC, 100, 0
  31.   hMeta = CloseMetaFile(hMetaDC)
  32.   MyRect.Right = 1000
  33.   MyRect.Bottom = 1400
  34.   Meta2Aldus hMeta, MyRect, 10, "MYMETA.WMF"
  35.   DeleteMetaFile hMeta
  36.  End Sub
  37.